|
Inventor VBA : File bei SaveAs nicht überschreiben
RODER am 20.08.2011 um 07:36 Uhr (0)
Hallo NancyHabs im moment so gelöst, dass ich wenn das File schon besteht dieAuswahl gebe überschreiben oder nicht.Weil wenn die Zeichnung richtig bezeichnet ist besteht das PDF davon noch nicht oder es gehört überschrieben.Allerdings kommt es in der Hitze des gefechtes schon mal vor, das z.B. der Änderungsindex im Dateinamen nochnicht angepasst worden ist und schon jemand ein PDF machen will. Deher muss ich es abfangen können.----If fso.fileexists(outFile) Then MsgBox "Datei existiert bereits, bitt ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : I-Prppperties anlegen
RODER am 29.01.2013 um 07:30 Uhr (0)
Hallo VolkerMit dem "For Each" wird überprüft ob es das IProp mit diesem Namen schon gibt.Wenn ja wird mit dem If der neue Inhalt zugewiesen, wenn nicht (Else) wird das IProp erzeugt und anschliessend der Inhalt zugewiesen.Das Schnipsel stammt aus einem VBA Skript mit welchem ich die jeweiligen Massstäbe der Erstansichten der verschiedenen Blätter einer Zeichnung (idw) herauslese und in die IProps übertrage.------------------Grüsse, ToniRechtschreibefehler gehören dem findigen Finder
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Zu wenig Speicher in Default.ivb
RODER am 28.06.2007 um 20:06 Uhr (0)
Ich hab ein Makro geschrieben, das mir ein PDF auf A3 oder A4 erstellt.Vorher wird das aktuelle Datum als Plotdatum in die iProps geschrieben, da die Zeichnung aber erst beim Speichern aktualisiert wird, hab ich über send Keys gespeichert.Das ganze läuft aber zu schnell ab, so dass der Druck vor dem Speichern erfolgt, womit das Datum auf dem PDF nicht oder falsch erscheint, nun habe ich mit dieser Schlafe eine Verzögerung eingebaut.Lasse mich gerne zu einer besseren Lösung überreden, bin blutiger Anfänger ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : File bei SaveAs nicht überschreiben
RODER am 18.08.2011 um 13:18 Uhr (0)
Hallo ZusammenHabe mir ein kleies Script zusammengestellt, welches mir nach ein paar anderen Schritteneine Zeichnung als PDF speichert.So weit funktionniert das auch, nun möchte ich aber nicht, dass mir einvorhandenes File (mit dem selben Namen) automatisch überschrieben wird.Ich möchte in dem Fall die selbe Frage gestellt bekommen wie wenn ich manuelleine Datei "Speicher unter" wähle und die schon besteht.Hier mal ein Teil vom Code: Dim oContext As TranslationContext Set oContext = ThisApplication.Trans ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Druck-Makro mehrseitige Zeichnungen
RODER am 19.08.2011 um 11:03 Uhr (0)
HalloHier mal ein Teil von meine Code:Check number of Pages Dim NumPages As Integer NumPages = dDoc.Sheets.Count Dim s As Integer s = 1 Dim byWert As Byte Sheet Number 1 If NumPages 1 Then Create File Name and Path If Len(Trim(dDoc.FullFileName)) 0 Then outFile = fso.GetParentFolderName(dDoc.FullFileName) & "" & fso.GetBaseName(dDoc.FullFileName) & " Blatt 1" & ".pdf" Set Activ Sheet to Sheet Number s dDoc.Sheets(s). ...
| | In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
